ocr: POPTRANSTYPE Properties - 70 - D VPostChange Sub PostChangeg On change of cransaction type, ensure proper amount sign which is done in IIdAMOUNT2.PostChange IF NOT ISNULLI Value ) THEN SELECT CASE Value CASE "Check": IF cepRegister.GetRecordset 0.GetColval( "AMOUNT" ) - > - 0 THEN embCheck.Colorfill = 15 Ext51gnature.Label. = "Sample User" CASE "Deposit": IF cepRegister.GetRecordset 0).GetColvall "AMOUNT" ) <0 THEN embuheck.COLOIE1LI = 9 Ext51gature.Label = r- For DEPOSIT Only -rr CASE Withdraw": IF cepRegister.GetRecordset 0).GetColvall "AMOUNT" ) - > 0 THEN embCheck.Colorfill = 11 ExtS1gatur ...
